object Contrasena: TContrasena Left = 449 Top = 345 BorderIcons = [biSystemMenu] BorderStyle = bsSingle Caption = 'Establecer contrase�a' ClientHeight = 238 ClientWidth = 443 Color = 14215660 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] Scaled = False Icon.Data = {} KeyPreview = True OldCreateOrder = False Position = poScreenCenter OnKeyDown = FormKeyDown OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object GrpContrasena: TPlaGroupBox Left = 14 Top = 7 Width = 418 Height = 183 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = 13977088 TitleFont.Height = -11 TitleFont.Name = 'Tahoma' TitleFont.Style = [] Caption = 'Contrase�a de supervisor' TabOrder = 0 object LblTitulo: TLabel Left = 58 Top = 17 Width = 349 Height = 76 AutoSize = False Caption = 'La contrase�a introducida restringir� el acceso a las secciones ' + 'seleccionadas de %s.'#13#10#13#10'Recuerda: Si pierdes u olvidas la contra' + 'se�a, no podr�s acceder a los componentes protegidos.' Transparent = True WordWrap = True end object LblAnterior: TLabel Left = 58 Top = 98 Width = 160 Height = 13 Caption = 'Introduce la contrase�a anterior:' Transparent = True end object LblNueva: TLabel Left = 58 Top = 126 Width = 92 Height = 13 Caption = 'Nueva contrase�a:' Transparent = True end object LblConfirmar: TLabel Left = 58 Top = 154 Width = 148 Height = 13 Caption = 'Confirma la nueva contrase�a:' Transparent = True end object Image1: TImage Left = 11 Top = 22 Width = 32 Height = 32 Picture.Data = {} Transparent = True end object EdtAnterior: TPlaEdit Left = 260 Top = 95 Width = 146 Height = 21 Cursor = crIBeam HelpContext = 199 PasswordChar = '*' TabOrder = 0 Transparent = False end object EdtNueva: TPlaEdit Left = 260 Top = 123 Width = 146 Height = 21 HelpContext = 200 PasswordChar = '*' TabOrder = 1 Transparent = False end object EdtConfirmar: TPlaEdit Left = 260 Top = 151 Width = 146 Height = 21 HelpContext = 198 PasswordChar = '*' TabOrder = 2 Transparent = False end end object ButtonAceptar: TPlaButton Tag = 2200 Left = 278 Top = 206 Width = 73 Height = 21 Caption = '&Aceptar' TabOrder = 1 OnClick = ButtonAceptarClick Default = True end object ButtonCancelar: TPlaButton Tag = 2400 Left = 359 Top = 206 Width = 73 Height = 21 Caption = '&Cancelar' TabOrder = 2 Cancel = True ModalResult = 2 end end